﻿Public Class DomainStubFactory


    Public Shared Function getContactStub() As Contact
        Dim c As New Contact("Sean", "Casey", "Labcorp", "Mr.", "Seamus")
        c.emailList.Add(New Email("abc@example.com", "Johns"))
        c.emailList.Add(New Email("zyz@example.com", "Bobs"))
        c.phoneList.Add(New PhoneNumber("123", "456", "7891", "HM"))
        c.phoneList.Add(New PhoneNumber("123", "456", "7891", "HM"))
        c.addressList.Add(New Address("888 Birdy ln", "Huntington Beach", "CA", "92646"))
        c.addressList.Add(New Address("111 High st", "Long Beach", "CA", "92121"))
        Return c
    End Function

End Class
